home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
lang
/
SmallEiffel.lha
/
SmallEiffel
/
lib_rand
/
demo2.e
< prev
next >
Wrap
Text File
|
1998-12-22
|
1KB
|
40 lines
-- This file is free software, which comes along with SmallEiffel. This
-- software is distributed in the hope that it will be useful, but WITHOUT
-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-- FITNESS FOR A PARTICULAR PURPOSE. You can modify it as you want, provided
-- this header is kept unaltered, and a notification of the changes is added.
-- You are allowed to redistribute it and sell it, alone or as a part of
-- another product.
-- Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
-- Dominique COLNET and Suzanne COLLIN - colnet@loria.fr
-- http://www.loria.fr/SmallEiffel
--
class DEMO2
creation make
feature
make is
local
std_rand: MIN_STAND;
count: INTEGER;
do
io.put_string("Using the MIN_STAND random number generator.%N%
%How many numbers ? ");
io.read_integer;
count := io.last_integer;
from
!!std_rand.make;
until
count = 0
loop
std_rand.next;
io.put_real(std_rand.last_real);
count := count - 1;
io.put_string("%N");
end;
end;
end -- DEMO2